ras_recode <- function(x){
  ras_kat <- rep(NA, nrow(x))
  ras_kat[x$ARB_HOVED_BRA_DB07 == 011100] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 011200] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 011300] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 011400] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 011500] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 011600] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 011900] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012100] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012200] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012300] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012400] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012500] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012600] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012700] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012800] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 012900] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 013000] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014100] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014200] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014300] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014400] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014500] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014610] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014620] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014700] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014910] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 014920] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 015000] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 016100] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 016200] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 016300] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 016400] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 017000] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 021000] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 022000] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 023000] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 024000] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 031100] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 031200] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 032100] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 032200] <- 'Landbrug, skovbrug og fiskeri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 051000] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 052000] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 061000] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 062000] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 071000] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 072100] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 072900] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 081100] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 081200] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 089100] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 089200] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 089300] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 089900] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 091000] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 099000] <- 'R?stofindvinding'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 101110] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 101190] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 101200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 101300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 102010] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 102020] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 103100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 103200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 103900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 104100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 104200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 105100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 105200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 106100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 106200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 107110] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 107120] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 107200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 107300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 108100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 108200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 108300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 108400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 108500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 108600] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 108900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 109100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 109200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 110100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 110200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 110300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 110400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 110500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 110600] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 110700] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 120000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 131000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 132000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 133000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 139100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 139210] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 139220] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 139300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 139400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 139500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 139600] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 139900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 141100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 141200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 141300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 141400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 141900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 142000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 143100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 143900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 151100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 151200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 152000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 161000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 162100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 162200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 162300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 162400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 162900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 171100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 171200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 172100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 172200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 172300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 172400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 172900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 181100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 181200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 181300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 181400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 182000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 191000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 192000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 201100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 201200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 201300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 201400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 201500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 201600] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 201700] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 202000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 203000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 204100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 204200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 205100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 205200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 205300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 205900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 206000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 211000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 212000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 221100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 221900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 222100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 222200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 222300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 222900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 231100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 231200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 231300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 231400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 231900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 232000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 233100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 233200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 234100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 234200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 234300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 234400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 234900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 235100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 235200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 236100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 236200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 236300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 236400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 236500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 236900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 237000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 239100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 239910] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 239990] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 241000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 242000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 243100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 243200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 243300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 243400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 244100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 244200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 244300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 244400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 244500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 244600] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 245100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 245200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 245300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 245400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 251100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 251200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 252100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 252900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 253000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 254000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 255000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 256100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 256200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 257100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 257200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 257300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 259100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 259200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 259300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 259400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 259900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 261100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 261200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 262000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 263000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 264000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 265100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 265200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 266010] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 266090] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 267000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 268000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 271100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 271200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 272000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 273100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 273200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 273300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 274000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 275100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 275200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 279000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 281110] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 281190] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 281200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 281300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 281400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 281500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 282100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 282200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 282300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 282400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 282500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 282900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 283000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 284100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 284900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 289100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 289200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 289300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 289400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 289500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 289600] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 289900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 291000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 292000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 293100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 293200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 301100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 301200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 302000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 303000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 304000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 309100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 309200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 309900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 310100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 310200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 310300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 310900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 321100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 321200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 321300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 322000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 323000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 324000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 325000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 329100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 329900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 331100] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 331200] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 331300] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 331400] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 331500] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 331600] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 331700] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 331900] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 332000] <- 'Industri'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 351100] <- 'Energiforsyning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 351200] <- 'Energiforsyning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 351300] <- 'Energiforsyning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 351400] <- 'Energiforsyning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 352100] <- 'Energiforsyning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 352200] <- 'Energiforsyning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 352300] <- 'Energiforsyning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 353000] <- 'Energiforsyning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 360000] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 370000] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 381100] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 381200] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 382110] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 382120] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 382200] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 383100] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 383200] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 390000] <- 'Vandforsyning og renovation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 411000] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 412000] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 421000] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 421100] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 421200] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 421300] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 422000] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 422100] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 422200] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 429000] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 429100] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 429900] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 431100] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 431200] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 431300] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 432100] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 432200] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 432900] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 433100] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 433200] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 433300] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 433410] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 433420] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 433900] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 439100] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 439910] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 439990] <- 'Bygge og anl?g'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 451110] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 451120] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 451910] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 451920] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 452010] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 452020] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 452030] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 452040] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 453100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 453200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 454000] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461400] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461500] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461600] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461710] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461790] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461800] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 461900] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 462100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 462200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 462300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 462400] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463410] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463420] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463500] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463600] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463700] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463810] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463890] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 463900] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464210] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464220] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464310] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464320] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464330] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464340] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464350] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464410] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464420] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464500] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464610] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464620] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464700] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464800] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464910] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464920] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464930] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 464990] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 465100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 465210] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 465220] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 466100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 466200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 466300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 466400] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 466500] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 466600] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 466900] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 467100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 467200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 467310] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 467320] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 467400] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 467500] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 467600] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 467700] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 469000] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 471110] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 471120] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 471130] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 471900] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 472100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 472200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 472300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 472400] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 472500] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 472600] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 472900] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 473000] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 474100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 474200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 474300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475210] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475220] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475400] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475910] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475920] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475930] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475940] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 475990] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 476100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 476200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 476300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 476410] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 476420] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 476430] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 476500] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477110] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477120] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477210] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477220] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477300] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477400] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477500] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477610] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477620] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477630] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477700] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477810] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477820] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477830] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477840] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477890] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 477900] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 478100] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 478200] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 478900] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479110] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479111] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479112] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479113] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479114] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479115] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479116] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479117] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479119] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479120] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 479900] <- 'Handel'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 491000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 492000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 493110] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 493120] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 493200] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 493910] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 493920] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 494100] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 494200] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 495000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 501000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 502000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 503000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 504000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 511010] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 511020] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 512100] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 512200] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 521000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522110] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522120] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522130] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522210] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522220] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522300] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522400] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522910] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522920] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 522990] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 531000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 532000] <- 'Transport'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 551010] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 551020] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 552000] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 553000] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 559000] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 561010] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 561020] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 562100] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 562900] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 563000] <- 'Hoteller og restauranter'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 581100] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 581200] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 581300] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 581410] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 581420] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 581900] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 582100] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 582900] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 591110] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 591120] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 591200] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 591300] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 591400] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 592000] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 601000] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 602000] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 611000] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 612000] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 613000] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 619000] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 620100] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 620200] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 620300] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 620900] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 631100] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 631200] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 639100] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 639900] <- 'Information og kommunikation'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 641100] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 641900] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 642010] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 642020] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 642030] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 643010] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 643020] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 643030] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 643040] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 649100] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 649210] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 649220] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 649230] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 649240] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 649900] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 651100] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 651200] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 652000] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 653010] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 653020] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 661100] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 661200] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 661900] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 662100] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 662200] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 662900] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 663000] <- 'Finansiering og forsikring'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 681000] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 682010] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 682020] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 682030] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 682040] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 683110] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 683120] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 683210] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 683220] <- 'Ejendomshandel og udlejning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 691000] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 692000] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 701010] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 701020] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 702100] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 702200] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 711100] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 711210] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 711220] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 711230] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 711240] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 711290] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 712010] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 712020] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 712090] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 721100] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 721900] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 722000] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 731110] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 731190] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 731200] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 732000] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 741010] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 741020] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 741030] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 742000] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 743000] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 749010] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 749090] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 750000] <- 'Videnservice'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 771100] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 771200] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 772100] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 772200] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 772900] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 773100] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 773200] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 773300] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 773400] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 773500] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 773900] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 774000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 781000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 782000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 783000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 791100] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 791200] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 799000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 801000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 802000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 803000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 811000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 812100] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 812210] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 812220] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 812290] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 812900] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 813000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 821100] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 821900] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 822000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 823000] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 829100] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 829200] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 829900] <- 'Rejsebureauer, reng?ring og anden operationel service'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 841100] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 841200] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 841300] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 842100] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 842200] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 842300] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 842400] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 842500] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 843000] <- 'Offentlig administration, forsvar og politi'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 851000] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 852010] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 852020] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 853110] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 853120] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 853200] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 854100] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 854200] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 855100] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 855200] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 855300] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 855900] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 856000] <- 'Undervisning'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 861000] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 862100] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 862200] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 862300] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 869010] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 869020] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 869030] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 869040] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 869090] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 871010] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 871020] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 872010] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 872020] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 873010] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 873020] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 879010] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 879020] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 879090] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 881010] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 881020] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 881030] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889110] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889120] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889130] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889140] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889150] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889160] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889910] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889920] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 889990] <- 'Sundhed og socialv?sen'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 900110] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 900120] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 900200] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 900300] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 900400] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 910110] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 910120] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 910200] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 910300] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 910400] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 920000] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 931100] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 931200] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 931300] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 931900] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 932100] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 932910] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 932990] <- 'Kultur og fritid'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 941100] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 941200] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 942000] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 949100] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 949200] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 949900] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 951100] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 951200] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 952100] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 952200] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 952300] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 952400] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 952500] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 952900] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 960110] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 960120] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 960210] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 960220] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 960300] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 960400] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 960900] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 970000] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 981000] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 982000] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 990000] <- 'Andre serviceydelser  mv.'                     
  ras_kat[x$ARB_HOVED_BRA_DB07 == 999999] <- 'Uoplyst aktivitet'                     
  return(ras_kat)
  
}
